home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / santa clues (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  30KB  |  872 lines
  1. 5 ifz9=0thengosub60000
  2. 10 gosub7730,st
  3. 20 gosub1770,fi
  4. 30 gosub2070,intro
  5. 40 si=1:pokekb,.
  6. 50 :
  7. 60 onsigosub210,370,580,690,780,850,1000,1090,1320,1420,1520,1560
  8. 70 ifsf<3then60
  9. 80 :
  10. 90 onsi-14gosub2980,3200,3450,3480,3570,3860,3970,4000,4200
  11. 100 ifsi>23thenonsi-23gosub4290,4340,4420,4580,4620
  12. 110 ifsf<5then90
  13. 120 :
  14. 130 onsi-28gosub4850,4950,5030,5080,5130,5210,5260,5300,5380,5420
  15. 140 ifsi>38thenonsi-38gosub5510,5540,5610,5690,5790,5910,5940,5970
  16. 150 ifsf<7then130
  17. 160 :
  18. 170 onsi-46gosub6130,6250,6300,6400,6590,6690,6760,6850
  19. 180 goto150
  20. 190 :
  21. 200 si#1:
  22. 210 gosub2220:sp=.
  23. 220 tx$="[215]ow!  [212]hat's a scary telegram!  [212]his    
  24. 230 tx$[178]tx$[170]"needs quick action to avoid a tragedy.
  25. 240 ch$(1)="[199]rab your earmuffs and catch the nextflight north
  26. 250 ch$(2)[178]"chr$o to (NULL)ears' department store and    look for (NULL)anta
  27. 260 ch$(3)="[201]gnore it- claim the messenger got   the wrong address
  28. 270 lk(1)[178]4:lk(2)[178]2:lk(3)[178]3
  29. 280 nc[178]3:[141]7380
  30. 290 [139]si[178]2[167]zf[178]zf[170]1
  31. 300 [139]ch[178]3[176]sf[167][142]
  32. 310 a[178]22:[141]7580
  33. 320 [153]"peekut it's snowing outside -
  34. 330 print"why don't you put your shoes on first?";
  35. 340 tr$="[212]hat's better.
  36. 350 sf[178]1:[137]7620
  37. 360 #2
  38. 370 [139]zf[177]1[167]500
  39. 380 tx$[178]"(NULL)ou arrive at (NULL)ears in record time.     atnsking about (NULL)anta, you are
  40. 390 tx$=tx$+" told that heleft some time ago, looking depressed.  [200]e was seen
  41. 400 tx$[178]tx$[170]" headed north on his sled,   in a bit of a rush.
  42. 410 tx$=tx$+cr$+"[195]ould this be a clue?
  43. 420 ch$(1)[178]"ascollow his trail
  44. 430 ch$(2)="[199]o back home":lk(2)=1
  45. 440 ch$(3)="[194]uy some dishes
  46. 450 ch$(4)[178]"peekuy some supplies":lk(4)[178]6
  47. 460 nc[178]4:[141]7380
  48. 470 [139]ch[178]1[167]tr$[178]"(NULL)he trail leads north, toward the       airport.":si[178]4
  49. 480 [139]ch[178]3[167]tr$[178]"(NULL)he dishes look great.":si[178]2
  50. 490 [142]
  51. 500 [153]"load(NULL)hoa - (NULL)he store is closed!":[153]"(NULL)ou'll have to wait until tomorrow
  52. 510 print"morning to get in.
  53. 520 [141]7620
  54. 530 [153]"right$ said you'll have to wait until":[153]"tomorrow!
  55. 540 gosub7620
  56. 550 tr$="[154][207]k, ok, it's morning now.
  57. 560 zf[178][171]1:[142]
  58. 570 #3
  59. 580 [141]1760:[153]"sys(NULL)ypical!
  60. 590 print"[217]ou know, that's the trouble with
  61. 600 [153]"society today: nobody cares any more.
  62. 610 print"[211]anta could be dying out there on the
  63. 620 [153]"tundra, and all you want to do is sit
  64. 630 print"by a warm fire and relax.  [207]h well, [201]
  65. 640 [153]"guess this is going to be a very short
  66. 650 print"story.  [204]et me know if you suddenly
  67. 660 [153]"develop a conscience.";
  68. 670 si[178]1:[137]2160
  69. 680 #4
  70. 690 [139]sf[177]1[167]si[178]10:tr$[178]"(NULL)our score is 3 out of 72 so far.":[142]
  71. 700 tx$[178]cr$[170]"(NULL)ou're at the airport now. (NULL)nfortunatelyyou don't have anything 
  72. 710 tx$=tx$+"with you but    earmuffs and shoes.
  73. 720 ch$(1)[178]"chr$et on a plane":lk(1)[178]7
  74. 730 ch$(2)[178]"chr$o back home":lk(2)[178]1
  75. 740 ch$(3)[178]"peekuy some supplies (a wise move)":lk(3)[178]5
  76. 750 ch$(4)[178]"chr$ive up":lk(4)[178]3
  77. 760 nc[178]4:[137]7380
  78. 770 #5
  79. 780 tr$[178]"(NULL)ell, it seemed like a wise move"[170]cr$[170]"at first.
  80. 790 tx$="[217]ou locate the airport gift shop.       [211]adly, all they have here 
  81. 800 tx$[178]tx$[170]"is toiletries and some chintzy gift cards -"[170]cr$[170]"the usual stuff.
  82. 810 tx$=tx$+cr$+"[215]hy don't you go back home and[160]try
  83. 820 tx$[178]tx$[170]cr$[170]"(NULL)ears' department store?
  84. 830 lk(1)=4:goto7370
  85. 840 #6
  86. 850 ifsf>1thensi=8:return
  87. 860 tx$="[217]ou buy a backpack, a very large parka, 
  88. 870 tx$[178]tx$[170]"some mukluks, a rifle, and a year's"[170]cr$
  89. 880 tx$[178]tx$[170]"supply of freeze-dried turnips, on sale.
  90. 890 tx$=tx$+"[217]ou must look like a ghostbuster with   all that stuff!
  91. 900 ch$(1)[178]"left$ead back home":lk(1)[178]1
  92. 910 ch$(2)[178]"(NULL)eep on shopping":lk(2)[178]8
  93. 920 ch$(3)[178]"chr$o to the airport
  94. 930 nc=3:gosub7380
  95. 940 sf=2:ifch-3thenreturn
  96. 950 a=22:gosub7580:syscb,16:print"[153][193]ll that shopping was tiring, so on
  97. 960 [153]"your way to the airport, you decide":[153]"to go home for a nap.
  98. 970 print"[154][208]ress a key to set the alarm.
  99. 980 si[178]1:[137]7620
  100. 990 #7
  101. 1000 tr$[178]"(NULL)here do you think you're going?"[170]cr$[170]"lenalifornia?"[170]cr$
  102. 1010 tr$[178]tr$[170]"(NULL)his is the search for (NULL)anta lenlues,"[170]cr$
  103. 1020 tr$[178]tr$[170]"not (NULL)anta lenruz!"[170]cr$
  104. 1030 tr$[178]tr$[170]"sys(NULL)et me explain this carefully:
  105. 1040 tx$="[153][193]re you going to travel to the north    pole and strangle polar 
  106. 1050 tx$[178]tx$[170]"bears with just your bare hands?   (NULL)ead my lips:"[170]cr$
  107. 1060 tx$[178]tx$[170]"(NULL)ou need some supplies.
  108. 1070 lk(1)=4:ex$=" if you understand":goto7370
  109. 1080 #8
  110. 1090 print"[147][153][217]ou must have been 'born to shop'!":w=3400:fori=1to999:next
  111. 1100 print"[154][217]ou're really getting the hang of this.
  112. 1110 [153]"(NULL)ou buy an axe, a snowmobile, a
  113. 1120 print"camper's portable kitchen, a dogsled,
  114. 1130 [153]"and two chainsaws (in case one won't    start).
  115. 1140 fori=1tow:next
  116. 1150 print"[150][201] hope your credit is good!
  117. 1160 [139][194](kb)[178].[167][129]i[178]1[164]w:[130]
  118. 1170 [153]"print(NULL)ou head for the airport and get on a
  119. 1180 print"plane.  [213]nfortunately the weight of all
  120. 1190 [153]"that stuff is too much, and the plane
  121. 1200 print"crashes.
  122. 1210 [129]i[178]1[164]w:[130]
  123. 1220 [151]sr[171]3,8:[151]sw[171]3,2:[151]sw[170]1,20:[151]sw[170]2,58
  124. 1230 [129]i[178]1[164]2:[151]sw,.:[151]ra,2:[151]sw,129
  125. 1240 j[178]9[174]9:[151]sw,128:[151]ra,7:j[178]2[174]2:[151]ra,1
  126. 1250 [151]sw,0:[151]ra,1:[151]sw,129:j[178]2[174]2:[151]ra,2
  127. 1260 j[178]2[174]2:[151]sw,128:[151]sr[171]3,143:[129]j[178]1[164]170:[130]
  128. 1270 [130]:[151]ra,.:[129]i[178]1[164]999:[130]
  129. 1280 [129]i[178]1[164]w:[161]a$
  130. 1290 [139]a$[178]""[167][130]:w[178]w[172]1.5:[158]cb,24:[153]"(NULL)ress any key...";:[137]1220
  131. 1300 [151]sw,.:lk(1)[178]6:sf[178]1:[137]2530
  132. 1310 #9
  133. 1320 tx$[178]"(NULL)hat a long flight it is to (NULL)audi"[170]cr$
  134. 1330 tx$[178]tx$[170]"atnrabia.  (NULL)ext time you catch the wrong  plane, right$ suggest you
  135. 1340 tx$=tx$+" pick the [195]oncorde- you'll get lost much faster!
  136. 1350 ch$(1)[178]"(NULL)elax:  have a drink":lk(1)[178]11
  137. 1360 ch$(2)[178]"lenheck out the beach":lk(2)[178]12
  138. 1370 ch$(3)[178]"chr$et a plane home
  139. 1380 nc=3:gosub7380
  140. 1390 ifch=3thentr$="[217]ou have better luck this time.":si=10
  141. 1400 return
  142. 1410 #10
  143. 1420 tx$="[200]ow you got all that equipment through  the security check, [201]'ll 
  144. 1430 tx$[178]tx$[170]"never know.    chr$ood thing you brought a credit card, topay for 
  145. 1440 tx$=tx$+"your ticket.  [212]hat helpful clerkpointed down this walkway, but
  146. 1450 tx$[178]tx$[170]" there areso many planes.
  147. 1460 ch$(1)="[212]ake the blue plane
  148. 1470 ch$(2)[178]"(NULL)ake the red plane
  149. 1480 nc=2:gosub7380
  150. 1490 ifch=2thensf=3:si=15:zf=.:return
  151. 1500 tr$="[207]h no - you got on the wrong plane!":si=9:return
  152. 1510 #11
  153. 1520 tr$=cr$+"[196]idn't you know?
  154. 1530 tx$[178]"(NULL)here's no drinking allowed here!  (NULL)et'stry again.
  155. 1540 lk(1)=9:goto7370
  156. 1550 #12
  157. 1560 tr$=cr$+"[212]hat's not a beach:  it's the desert.
  158. 1570 tx$[178]"atnnyway, right$ don't see (NULL)anta lenlaus here.
  159. 1580 lk(1)=9:ex$=" to go to the airport":goto7370
  160. 1590 :
  161. 1600 syscb,19,18:print"[150][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]";:r$="[146]
  162. 1610 [153]r$"get  you'd quit now?  get";
  163. 1620 [153]r$"getf1 start over      get";
  164. 1630 [153]r$"getf3 resume search   get";
  165. 1640 [153]r$"getf7 "xx$"get";
  166. 1650 [153]r$"logwaitnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewcoswait";
  167. 1660 [141]7950:[141]7620
  168. 1670 [129]i[178]19[164]24:[158]cb,i,18:[153]"                     ";:[130]:[141]7540
  169. 1680 [139]ch[178]1[167][156]:ml[178]1:[137]10
  170. 1690 [139]ch[171]7[167][158]cb,19:[137]7390
  171. 1700 [151]53274,.:[151]56333,129:[158]65418:[151]53273,1:[151]53269,.
  172. 1710 [151]808,237
  173. 1720 [139][194](2)[178].[167][153]"load":[151]53281,.:[162]:[128]
  174. 1730 a$[178]"hello connect":[141]7660
  175. 1740 [139]a[178]63[167][147]a$,8
  176. 1750 [141]7690:[137]1730
  177. 1760 :
  178. 1770 rn[178]16:sl[178]2040:[151]bg,208:[1